home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 1 / Meeting Pearls Vol 1 (1994).iso / installed_progs / comm / ums / developer.lha / Developer / arexx / UMS-Skeleton.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1993-11-03  |  1.6 KB  |  104 lines
  1. /* ------------------------------------------------------------------------
  2.   :Program.
  3.   :Contents.
  4.   :Author.
  5.   :Address.
  6.   :Address.
  7.   :Address.
  8.   :History.
  9.   :Copyright.     Public Domain
  10.   :Language.      ARexx
  11.   :Translator.    RexxMast
  12. ------------------------------------------------------------------------ */
  13.  
  14. /*** Startup ***/
  15.  
  16. options results
  17.  
  18. RC = 0
  19.  
  20. signal on BREAK_C
  21. signal on BREAK_D
  22. signal on BREAK_E
  23. signal on BREAK_F
  24. signal on ERROR
  25. signal on HALT
  26. signal on IOERR
  27. signal on SYNTAX
  28.  
  29. /*** Open ums.library ***/
  30.  
  31. libname = "ums.library"
  32.  
  33. if ~show("L", libname) then do
  34.   if ~addlib(libname, 0, -210, 8) then do
  35.     say libname "not found!"
  36.     exit
  37.   end
  38. end
  39.  
  40. /*** Login ***/
  41.  
  42. if open(file,"UmsConsts.rexx",r) then do
  43.   UMS_Include = readch(file,64000)
  44.   interpret UMS_Include
  45.   call close(file)
  46. end; else do
  47.   say "cannot read UMS include-file!"
  48.   exit 20
  49. end
  50.  
  51. parse arg name password otherargs
  52.  
  53. account = UMSLogin(name, password)
  54. if account = 0 then do
  55.   say "unable to login."
  56.   exit 10
  57. end
  58.  
  59. /*** End of standard startup ***/
  60.  
  61.  
  62. /* Place your code HERE */
  63.  
  64.  
  65. /*** Final cleanup ***/
  66.  
  67. BREAK_C:
  68. BREAK_D:
  69. BREAK_E:
  70. BREAK_F:
  71. ERROR:
  72. HALT:
  73. IOERR:
  74. SYNTAX:
  75.  
  76. IF RC ~= 0 THEN DO
  77.   SAY "Error: " rc errortext(rc) "Line" sigl
  78. END
  79.  
  80. /*** Logout ***/
  81.  
  82. if account ~= 0 then do
  83.   call UMSLogout(account)
  84.   account = 0
  85. end
  86.  
  87. exit
  88.  
  89. /*** Support ***/
  90.  
  91. CheckErr: procedure expose account
  92.   err = UMSErrNum(account)
  93.   if err ~= 0 then do
  94.     say "UMS Error #" || err || ": " || UMSErrTxt(account)
  95.   end
  96. return
  97.  
  98. MakeFlags: procedure
  99.   flags = '00000000'x
  100.   do i = 1 to arg()
  101.     flags = BITSET(flags, arg(i))
  102.   end
  103. return flags
  104.